home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Development Kits / MPW Related / DTS MPW Goodies / MyBuildMenu < prev    next >
Encoding:
Text File  |  1990-09-14  |  6.3 KB  |  160 lines  |  [TEXT/MPS ]
  1. #
  2. # Build our custom version of the Build Menu
  3. #
  4. Set Exit 0
  5.     DeleteMenu Build ≥ Dev:Null
  6.     AddMenu Build 'Create Build Commands…' ∂
  7.         'Set Program "`∂`Commando CreateMake || Echo Set Status 0∂` ≥ "{ShellDirectory}"MPW.Errors ∂
  8.             || Alert < "{ShellDirectory}"MPW.Errors`"'
  9.     AddMenu Build '(-' ''
  10.     AddMenu Build 'Build…/B' ∂
  11.         'Begin; ∂
  12.          Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
  13.          Exit If "{NewProgram}" == ""; ∂
  14.          Set Program "{NewProgram}"; ∂
  15.          Open "{Worksheet}"; ∂
  16.          Echo; Echo; ∂
  17.          BuildProgram "{Program}"; ∂
  18.          End >> "{Worksheet}" ≥≥ Dev:StdOut'
  19.     AddMenu Build 'Build Same/∫' ∂
  20.         'Begin; ∂
  21.          Exit If "{Program}" == ""; ∂
  22.          Open "{Worksheet}"; ∂
  23.          Echo; Echo; ∂
  24.          BuildProgram "{Program}"; ∂
  25.          End >> "{Worksheet}" ≥≥ Dev:StdOut'
  26.     AddMenu Build 'Full Build…' ∂
  27.         'Begin; ∂
  28.          Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
  29.          Exit If "{NewProgram}" == ""; ∂
  30.          Set Program "{NewProgram}"; ∂
  31.          Open "{Worksheet}"; ∂
  32.          Echo; Echo; ∂
  33.          BuildProgram -e "{Program}"; ∂
  34.          End >> "{Worksheet}" ≥≥ Dev:StdOut'
  35.     AddMenu Build 'Show Build Commands…' ∂
  36.         'Begin; ∂
  37.         Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
  38.          Exit If "{NewProgram}" == ""; ∂
  39.          Set Program "{NewProgram}"; ∂
  40.          Open "{Worksheet}"; ∂
  41.          Echo; Echo; ∂
  42.          BuildCommands "{Program}"; ∂
  43.          End >> "{Worksheet}" ≥≥ Dev:StdOut'
  44.     AddMenu Build 'Show Full Build Commands…' ∂
  45.         'Begin; ∂
  46.          Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
  47.          Exit If "{NewProgram}" == ""; ∂
  48.          Set Program "{NewProgram}"; ∂
  49.          Open "{Worksheet}"; ∂
  50.          Echo; Echo; ∂
  51.          BuildCommands -e "{Program}"; ∂
  52.          End >> "{Worksheet}" ≥≥ Dev:StdOut'
  53.     AddMenu Build '(-' ''
  54.     Alias MADebugOff        "AddMenu Build 'MABuild Debug' MADebugOn; Set MADebuggingFlag 0"
  55.     Alias MADebugOn            "AddMenu Build 'MABuild Debug!' MADebugOff; Set MADebuggingFlag 1"
  56.     Alias MASymOff            "AddMenu Build 'MABuild SADE Symbols' MASymOn; Set MASADEFlag 0"
  57.     Alias MASymOn            "AddMenu Build 'MABuild SADE Symbols!' MASymOff; Set MASADEFlag 1"
  58.     Alias MAMacIIOff        "AddMenu Build 'MABuild Needs Mac II' MAMacIIOn; Set MAMacIIFlag 0"
  59.     Alias MAMacIIOn            "AddMenu Build 'MABuild Needs Mac II!' MAMacIIOff; Set MAMacIIFlag 1"
  60.     Alias MASystem6Off            "AddMenu Build 'MABuild Needs Mac II' MASystem6On; Set MASystem6Flag 0"
  61.     Alias MASystem6On            "AddMenu Build 'MABuild Needs Mac II!' MASystem6Off; Set MASystem6Flag 1"
  62.     Alias MACPlusLoadOff    "AddMenu Build 'MABuild Use C++ Load Files' MACPlusLoadOn; Set MACPlusLoadFlag 0"
  63.     Alias MACPlusLoadOn        "AddMenu Build 'MABuild Use C++ Load Files!' MACPlusLoadOff; Set MACPlusLoadFlag 1"
  64.     Alias MACPlusSupportOff    "AddMenu Build 'MABuild Force C++ Support' MACPlusSupportOn; Set MACPlusSupportFlag 0"
  65.     Alias MACPlusSupportOn    "AddMenu Build 'MABuild Force C++ Support!' MACPlusSupportOff; Set MACPlusSupportFlag 1"
  66.     Alias MARunOff            "AddMenu Build 'MABuild Runs App' MARunOn; Set MARunFlag 0"
  67.     Alias MARunOn            "AddMenu Build 'MABuild Runs App!' MARunOff; Set MARunFlag 1"
  68.     Alias MAAutoBuildOff    "AddMenu Build 'MABuild AutoBuild MacApp' MAAutoBuildOn; Set MAAutoBuildFlag 0"
  69.     Alias MAAutoBuildOn        "AddMenu Build 'MABuild AutoBuild MacApp!' MAAutoBuildOff; Set MAAutoBuildFlag 1"
  70.     Alias MAInspectorOff    "AddMenu Build 'MABuild Inspector' MAInspectorOn; Set MAInspectorFlag 0"
  71.     Alias MAInspectorOn        "AddMenu Build 'MABuild Inspector!' MAInspectorOff; Set MAInspectorFlag 1"
  72.     Alias EvalMAOpts ∂
  73.         'If {MADebuggingFlag} == 1; Set CurMABuildOpts "-Debug"; Else; Set CurMABuildOpts "-NoDebug"; End; ∂
  74.          If {MASADEFlag} == 1; Set CurMABuildOpts "{CurMABuildOpts} -Sym"; End; ∂
  75.          If {MASystem6Flag} != 1; Set CurMABuildOpts "{CurMABuildOpts} -NoNeedsSystem6"; End; ∂
  76.          If {MAMacIIFlag} == 1; Set CurMABuildOpts "{CurMABuildOpts} -NeedsMC68020 -NeedsFPU -NeedsColorQD"; End; ∂
  77.          If {MACPlusLoadFlag} == 1; Set CurMABuildOpts "{CurMABuildOpts} -CPlusLoad"; End; ∂
  78.          If {MACPlusSupportFlag} == 1; Set CurMABuildOpts "{CurMABuildOpts} -CPlusSupport"; End; ∂
  79.          If {MAAutoBuildFlag} == 1; Set CurMABuildOpts "{CurMABuildOpts} -AutoBuild -lib -mf"; End; ∂
  80.          If {MAInspectorFlag} == 1; Set CurMABuildOpts "{CurMABuildOpts} -Inspector"; End; ∂
  81.          If {MARunFlag} == 1; Set CurMABuildOpts "{CurMABuildOpts} -Run"; End'
  82.     If {MADebuggingFlag} == 1
  83.         AddMenu Build 'MABuild Debug!' MADebugOff
  84.     Else
  85.         AddMenu Build 'MABuild Debug' MADebugOn
  86.     End
  87.     If {MASADEFlag} == 1
  88.         AddMenu Build 'MABuild SADE Symbols!' MASymOff
  89.     Else
  90.         AddMenu Build 'MABuild SADE Symbols' MASymOn
  91.     End
  92.     If {MASystem6Flag} == 1
  93.         AddMenu Build 'MABuild Needs Mac II!' MASystem6Off
  94.     Else
  95.         AddMenu Build 'MABuild Needs Mac II' MASystem6On
  96.     End
  97.     If {MAMacIIFlag} == 1
  98.         AddMenu Build 'MABuild Needs Mac II!' MAMacIIOff
  99.     Else
  100.         AddMenu Build 'MABuild Needs Mac II' MAMacIIOn
  101.     End
  102.     If {MACPlusLoadFlag} == 1
  103.         AddMenu Build 'MABuild Use C++ Load Files!' MACPlusLoadOff
  104.     Else
  105.         AddMenu Build 'MABuild Use C++ Load Files' MACPlusLoadOn
  106.     End
  107.     If {MACPlusSupportFlag} == 1
  108.         AddMenu Build 'MABuild Force C++ Support!' MACPlusSupportOff
  109.     Else
  110.         AddMenu Build 'MABuild Force C++ Support' MACPlusSupportOn
  111.     End
  112.     If {MARunFlag} == 1
  113.         AddMenu Build 'MABuild Runs App!' MARunOff
  114.     Else
  115.         AddMenu Build 'MABuild Runs App' MARunOn
  116.     End
  117.     If {MAInspectorFlag} == 1
  118.         AddMenu Build 'MABuild Inspector!' MAInspectorOff
  119.     Else
  120.         AddMenu Build 'MABuild Inspector' MAInspectorOn
  121.     End
  122.     If {MAAutoBuildFlag} == 1
  123.         AddMenu Build 'MABuild AutoBuild MacApp!' MAAutoBuildOff
  124.     Else
  125.         AddMenu Build 'MABuild AutoBuild MacApp' MAAutoBuildOn
  126.     End
  127.     AddMenu Build '(-' ''
  128.     AddMenu Build 'MaBuild…' ∂
  129.         'Begin; ∂
  130.          Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
  131.          Exit If "{NewProgram}" == ""; ∂
  132.          EvalMAOpts; ∂
  133.          Set Program "{NewProgram}"; ∂
  134.          Open "{Worksheet}"; ∂
  135.          Echo; ∂
  136.          MABuild "{Program}" {CurMABuildOpts}; ∂
  137.          End >> "{Worksheet}" ≥≥ Dev:StdOut'
  138.     AddMenu Build 'MABuild Same/√' ∂
  139.         'Begin; ∂
  140.          Exit If "{Program}" == ""; ∂
  141.          EvalMAOpts; ∂
  142.          Open "{Worksheet}"; ∂
  143.          Echo; ∂
  144.          MABuild "{Program}" {CurMABuildOpts}; ∂
  145.          End >> "{Worksheet}" ≥≥ Dev:StdOut'
  146.     AddMenu Build '(-' ''
  147.     AddMenu Build 'Next Error/≥' ∂
  148.         'Begin; ∂
  149.          Find /•[ ∂t]*File/ "{Worksheet}"; ∂
  150.          Find !0 "{Worksheet}"; ∂
  151.          Execute "{Worksheet}.§"; ∂
  152.          End > Dev:Null ≥ Dev:Null'
  153.     AddMenu Build 'Previous Error/≤' ∂
  154.         'Begin; ∂
  155.          Find \•[ ∂t]*File\ "{Worksheet}"; ∂
  156.          Find !0 "{Worksheet}"; ∂
  157.          Execute "{Worksheet}.§"; ∂
  158.          End > Dev:Null ≥ Dev:Null'
  159. Set Exit 1
  160.